home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / src / xconq-7.1.0 / test / loop.g < prev    next >
Encoding:
Text File  |  1996-07-07  |  1.8 KB  |  94 lines  |  [TEXT/R*ch]
  1. (game-module "loop"
  2.   (blurb "Thrash the mplayer")
  3.   (title "Put the mplayer into an endless loop")
  4.   (variants
  5.     (see-all true)
  6.     (world-size (40 20 360)))
  7. )
  8.  
  9. (unit-type i (name "infantry") (char "i"))
  10. (unit-type / (name "base") (char "/"))
  11. (unit-type @ (name "city") (char "@"))
  12.  
  13. (add i image-name "soldiers")
  14. (add / image-name "airbase")
  15. (add @ image-name "city20")
  16.  
  17. (material-type fuel)
  18. (material-type ammo)
  19.  
  20. (terrain-type plains (color "green") (image-name "plains") (char "+"))
  21. (add plains alt-percentile-min   0)
  22. (add plains alt-percentile-max 100)
  23. (add plains wet-percentile-min   0)
  24. (add plains wet-percentile-max 100)
  25.  
  26. (add (i / @) start-with (8 4 4))
  27. (table favored-terrain 
  28.   (u* t* 100)
  29.   (/ t* 0)
  30. )
  31. (set country-separation-min 15)
  32. (set country-separation-max 30)
  33. (set country-radius-min 2)
  34.  
  35. (table productivity (u* t* 100))
  36. (table unit-initial-supply 
  37.   (/ m* 999) 
  38.   (i m* (10 6))
  39. )
  40. (table unit-storage-x
  41.   ((/ i) fuel (200 20))
  42.   ((/ i) ammo (100 6))
  43. )
  44. (table base-production 
  45.   (/ fuel 20)
  46.   (/ ammo 10)
  47. )
  48. (table base-consumption (i fuel 1))
  49. (table hp-per-starve (i fuel 1.00))
  50. (table in-length 
  51.   (u* m* 0)
  52.   (/ m* -1)
  53. )
  54. (table out-length 
  55.   (u* m* 0)
  56.   (i m* -1)
  57. )
  58.  
  59. (add i acp-per-turn 2)
  60. (add i speed 100)
  61. (table mp-to-enter-terrain 
  62.   (u* t* 99)
  63.   (i plains 1)
  64. )
  65. (table material-to-move (i fuel 1))
  66.  
  67. (table unit-size-as-occupant
  68.   (u* u* 9999)
  69.   (i / 1)
  70.   (/ @ 1)
  71. )
  72. (add / capacity 4)
  73. (add @ capacity 1)
  74. (table occupant-max 
  75.   (u* u* 0)
  76.   (/ i 4)
  77.   (@ / 1)
  78. )
  79. (table unit-size-in-terrain
  80.   ((i / @) t* (4 16 16))
  81. )
  82. (add t* capacity 16)
  83.  
  84. (table damage 
  85.   (u* u* 1)
  86.   (u* @ 0)
  87. )
  88. (add (i / @) hp-max (2 5 20))
  89. (table hit-chance (u* u* 50))
  90. (table capture-chance  (i (/ @) 50))
  91. (table protection (u* u* 50))
  92. (table consumption-per-attack (u* ammo 1))
  93. (table hit-by (u* ammo 1))
  94.